home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Source 6
/
developer source - volume 6.iso
/
delph
/
aug95
/
ripp1f9.gif
< prev
Graphics Interchange Format
|
1996-11-15
|
6KB
|
582x245
|
4-bit (5 colors)
Labels:
text
|
screenshot
|
display
|
software
|
number
|
font
OCR:
COPY.PAS procedure TForm1. Button1Click (Sender: TObject) ; var fieldNumber : Integer; begin Table2 . Edit; Table2 . Insert; for fieldNumber := 0 to Table1. FieldCount - 1 do Table2 . Fields [ fieldNumber] . Assign ( Table1 . Fields [ fieldNumber] ) ; Table2 . Post; end; 41: 1 Modified Insert + Copy_rec )Copy